www.gusucode.com > HCONLY站长管理助手 V1.3 > HCONLY站长管理助手 V1.3\code\tools\seo\Conn.asp
<%@language=vbscript codepage=936 %> <% option explicit response.buffer=true dim conn dim connstr dim db db="0O00OOOO00O0O0.asp" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) conn.Open connstr sub CloseConn() conn.close set conn=nothing end sub dim rs dim sql dim cid dim sqltext,currentpage,i %>